home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch07 / myclock.bas < prev    next >
Encoding:
BASIC Source File  |  1994-03-04  |  589 b   |  26 lines
  1. Option Explicit
  2.  
  3. Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  4.  
  5.  
  6. Const SWP_NOSIZE = &H1
  7. Const SWP_NOMOVE = &H2
  8. Const SWP_NOACTIVATE = &H10
  9.  
  10. Sub Main ()
  11.  
  12.     Dim Para
  13.  
  14.     ' Display the form
  15.     frmMyClock.Show
  16.  
  17.     Do While DoEvents()
  18.        Para = SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
  19.        SetWindowPos frmMyClock.hWnd, 0, 0, 0, 0, 0, Para
  20.  
  21.        frmMyClock.txtClock.Text = Time$
  22.     Loop
  23.  
  24. End Sub
  25.  
  26.